00100	NEXT IS FROM TOP OF MANFRD.F4
00200	C DISPLAYS AND PLOTS TVIOF PROCESSED FILES.
00300
00400	C  TYPE <CR> TO REPEAT LAST FILE READ IN.
00500	C  TYPE  'X'  TO EXIT, TYPE  'SAVE'  TO SAVE FILE FOR DRAWING PROG.
00600	C  TYPE  'T'  TO TYPE LIST OF ALL YOUR CURRENT INPUT.
00700	C  TYPE 'FUNC NM'  WHERE NM = FUNC FILE NAME FOR DISTORTION FUNCTION.
00800	C  TYPE 'STEP N'  WHERE N = STEPS DISPLACEMENT FOR 2ND AND 3RD RUNS.
00900	C  TYPE 'CENTR F' WHERE F = CENTER FOR DISTORTION FUNC. (0 TO 1.0?)
01000	C  TYPE 'CLEAR' TO REINITIALIZE DISPLAY.
01100
01200	
01300	
01400	-------------- ALL END IN '.DO' -----------
01500	****** DO
01600	RU TPN↔V5P↔P 45 45 1↔90 100 67 100 0 97 0 100 1↔↔↔↔↔↔
01700	******* DOTVP ------  THIS MAKES SMALL FILES FOR TVD OR TVN.
01800	LOA P←/DUMP %DPIC1,PIC2,LOOK↔
01900	***** DOTVX
02000	LOA TPL←/DUMP %DMANFRD,RDBIG,PX,PLTMAN,LINEW,LOOK[MSS,LCS]↔
02100	****** DOTVZ
02200	LOA TVD←/DUMP %DMANFRD,RDSML,PX,PICY,LINEW,LOOK[MUS,LCS]↔
02300	***** DOTV  ---------- DOES THIS WORK???
02400	LOA %DTVIOF/FORT,SCAHEX/FORT,AEJ/FORT,PLOU/FORT,CLPLST/FORT,TVMAC/MAC,ASDACT/MAC↔
02500	****** DO2
02600	RU TPN↔FUNC FX↔CENTR -103↔V5P↔P 45 45 1↔90 100 67 100 0 97 0 100 1↔↔↔R↔X↔
02700	****** NPDDT
02800	LOA TPN←/DUMP MANFRD,RDBIG,PX,PLTMAN,LINEW,LOOK[MSS,LCS]↔
02900	***** NDDT
03000	LOA TVN←/DUMP MANFRD,RDSML,PX,PICY,LINEW,LOOK[MUS,LCS]↔